<%

Dim oConn,strSQL     
Set oConn = Server.CreateObject("ADODB.Connection") 
   ' oConn.open "Provider=Microsoft.Jet.Oledb.4.0;Data source=" & server.MapPath("datos.mdb") 	
oConn.Mode = 3      '3 = adModeReadWrite

oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=db505412057.db.1and1.com;UID=dbo505412057;PWD=1747_nieto;DATABASE=db505412057"

'oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=wdb1003.chi.us.securedata.net;UID=dbcalidda;PWD=c4lidd4;DATABASE=dbcalidda"

'oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=WIN-MTI6G7HDA2O\APLICACIONESWEB;UID=aesaweb;PWD=webAesa;DATABASE=prueba"




%>
